home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / WHATKEY.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  293 b   |  13 lines
  1. WhatKey:Start
  2.   | Sample for: Kbd:Get, Event:Add
  3.   New (Key)
  4.   Win:Add ("What Key?", 5, 15, 10, 50)
  5.   Win:Msg ("Press ESC to Quit")
  6.  
  7.   While (Kbd:Got!="Esc_Key")
  8.     Str:Put ("Press a Key: ")
  9.     Key = Kbd:Get ("Big")
  10.     Str:PutLine ('That was the "' + Key + '".')
  11.   Return (Ok)
  12.  
  13.